
Partial Class Content_TESTINF
    Inherits System.Web.UI.Page
    Dim inf As INF_USER
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        inf = New INF_USER
        Dim sql As String = "SELECT * FROM per_divtab d, per_sectab s, per_deptab z, per_pertab p, per_postab t " & _
                            "WHERE p.depcod[1,2]=d.divcod AND p.depcod[1,4]=s.seccod AND p.depcod=z.depcod AND p.posno=t.posno " & _
                            "AND p.empid='510050329'"
        Me.GridView1.DataSource = inf.GetData(sql)
        Me.GridView1.DataBind()
    End Sub
End Class
